home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a10.bas < prev    next >
BASIC Source File  |  1993-11-30  |  971b  |  31 lines
  1. 1000 'A10.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0:WINDOW(0,0)-(640,480)
  3. 1020 CLS
  4. 1030 PI=3.14159!:C=1
  5. 1040 A$="☆☆☆ 楕円周に楕円を書き重ねています｡ ☆☆☆"
  6. 1050 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
  7. 1060 T1=TIME:S=0 
  8. 1070 FOR T=20 TO 40 STEP 20
  9. 1080   FOR I=O TO 2*PI STEP .1!
  10. 1090     X=320+(80*SIN(I)+60*COS(I))
  11. 1100     Y=240-(50*SIN(I)-30*COS(I))
  12. 1110     CIRCLE (X,Y),T,C
  13. 1120     S=S+1
  14. 1130   NEXT
  15. 1140   C=C+4:IF T=20 THEN WAIT 100
  16. 1150 NEXT
  17. 1160 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒  描いた円の数--";S;"個" 
  18. 1170 WAIT 200
  19. 1180 C=0
  20. 1190 FOR T=20 TO 40 STEP 20
  21. 1200   FOR I=O TO 2*PI+.2! STEP .1!
  22. 1210     X=320+(80*SIN(I)+60*COS(I))
  23. 1220     Y=240-(50*SIN(I)-30*COS(I))
  24. 1230     CIRCLE (X,Y),T,C
  25. 1240   NEXT
  26. 1245   WAIT 100
  27. 1250 NEXT
  28. 1260 T3=TIME:T=T3-T2:LOCATE 5,1:PRINT "消すのに要した時間--";T;"秒                        " 
  29. 1270 WAIT 100
  30. 1280 'GOTO 1200
  31.